Know Your Hockey - The Greatest Player Resource/Know Your Hockey: The Greatest Player Resource.iso/hockey/director/ssqcst.cst/00109_Script_rollover_module

Text File | 1998-09-28 | 2KB | 64 lines

global EnterRollist,XitRollist,lastrollover,thisrollover


--- put the name of the handler that you want executed
-- for a specific sprite when the rollover occurs
--  in the internal cast in a field called onlist
-- egsprite 4 ijn list four
-- the first item in the line should be a number then the
-- desired commend separated by a ",'
-- the off list affects what happens when the rollover ends
-- and also requires a handler to be named
-- if no name is present nothing will happen
-- however both onlist and off list must have 48 lines with
-- a number at the start of each of the 48 lines

on initrolloverKit
  set EnterRollist = []
  set XitRollist = []
  set the itemDelimiter = ","
  repeat with x = 1 to 48
    set t = item 2 of (line x of field "onlist" of castlib "SSQCST")
    setat(EnterRollist,x,t)
    set r = item 2 of (line x of field "offlist" of castlib "SSQCST")
    setat(XitRollist,x,r)
  end repeat
end


on testforrollovers
  set thisrollover = the rollover
  if thisrollover = 0 then exit
  if (thisRollover <> LastRollover) then
    if lastRollover > 0 then
      do getat(Xitrollist,lastrollover)
    end if
    do getat(EnterRollist, thisrollover)
    set lastrollover = thisRollover
  end if
end

-- turns coach or announcer icon off at end of file
on soundover
  if soundbusy(1) then exit
  set flag1 = getat(gbuttonstate,40)
  set flag2 =  getat(gbuttonstate,41)
  set flag = max(flag1,flag2)
  if flag > 0 then
    Autoresetbanner
  end if
end

on autoresetbanner
  repeat with y = 41 down to 40
    set thisone = getat(gbuttonState,y)
    if thisone > 0  then
      set the membernum of sprite y = the membernum of sprite y -1
      setat(gbuttonState,y,0)
      exit repeat
    end if
  end repeat
  if the rollover <> y then set the blend of sprite y = 0
  updatestage
end